﻿Public Class GenericSingleton(Of T As {Form, New})
    Private Shared frm As T = Nothing

    Public Shared Function CreateInstance() As T

        If frm Is Nothing OrElse frm.IsDisposed Then
            frm = New T()
        End If
        Return frm
    End Function


End Class
